home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / Macintosh Sample Code / SC.013.OOPTESample / MTESample.p < prev    next >
Encoding:
Text File  |  1994-11-18  |  1.4 KB  |  57 lines  |  [TEXT/MPS ]
  1. {---------------------------------------------------------------------
  2. #
  3. #    Apple Macintosh Developer Technical Support
  4. #
  5. #    MultiFinder-Aware Simple TextEdit Sample Application
  6. #
  7. #    OOPTESample
  8. #
  9. #    MTESample.p        -    Pascal Source
  10. #
  11. #    Copyright © 1988, 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Versions:        
  15. #                    1.00                    04/89
  16. #                    1.10                    02/90
  17. #                    1.11                    10/92
  18. #
  19. #    Components:     
  20. #                    BuildOOPTESample            February 1, 1990
  21. #                    MTESample.p                    February 1, 1990
  22. #                    OOPTESample.make            February 1, 1990
  23. #                    TECommon.h                    February 1, 1990
  24. #                    TESampleGlue.a                February 1, 1990
  25. #                    TESample.r                    February 1, 1990
  26. #                    TMLRules.make                February 1, 1990
  27. #                    UApplication.p                February 1, 1990
  28. #                    UApplication.inc1.p            February 1, 1990
  29. #                    UDocument.p                    February 1, 1990
  30. #                    UDocument.inc1.p            February 1, 1990
  31. #                    UTEDocument.p                February 1, 1990
  32. #                    UTEDocument.inc1.p            February 1, 1990
  33. #                    UTESample.p                    February 1, 1990
  34. #                    UTESample.inc1.p            February 1, 1990
  35. #
  36. ---------------------------------------------------------------------}
  37.  
  38. PROGRAM OOPTESample;
  39.  
  40. USES
  41.     { Macintosh Types }
  42.     Types, QuickDraw, OSUtils, Controls, TextEdit, Traps,
  43.     Events, Windows, SegLoad, ObjIntf,
  44.  
  45.     { Our types }
  46.     UDocument, UApplication, UTEDocument, UTESample;
  47.  
  48.  
  49. BEGIN
  50.     New(gTheApplication);
  51.     IF gTheApplication = NIL THEN ExitToShell;
  52.  
  53.     gTheApplication.ITESample;
  54.     gApplication := gTheApplication;
  55.     gTheApplication.EventLoop;
  56. END.
  57.